home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3wind.arc / SAVEREST.PRG < prev   
Encoding:
Text File  |  1986-06-14  |  1.2 KB  |  69 lines
  1. **    Last revision: June 14, 1986 at 14:11
  2. *
  3. *   A demo program for SAVEREST.BIN by: H.M. Van Tassell
  4. *
  5. CLEAR 
  6. SET TALK OFF
  7. *
  8. filler = REPLICATE("░",80)
  9. *
  10. *  Load the binary file into dBASEIII ver 1.2 or later
  11. LOAD SaveRest
  12. *  Syntax: CALL SaveRest WITH "S" or "R"
  13. *
  14. TEXT
  15.   A demo program for the use of SAVEREST.BIN to save and then
  16.   restore the screen.
  17.  
  18.   The screen will be first painted with a solid design then a 
  19.   window will be put on screen and then the original screen 
  20.   will be restored
  21. ENDTEXT
  22. ?
  23. WAIT
  24. CLEAR
  25. *
  26. I = 0
  27. DO WHILE I < 8
  28.   @ 00+i,0 SAY filler
  29.   @ 12-i,0 SAY filler
  30.   @ 13+i,0 SAY filler
  31.   @ 24-i,0 SAY filler
  32.   I = I + 1
  33. ENDDO
  34. CALL SaveRest WITH "S"
  35. *
  36. @ 24,30 SAY " Press any key... "
  37. key = 0
  38. DO WHILE key = 0
  39.    key = INKEY()
  40. ENDDO
  41. @ 24,00
  42. *
  43. @ 8,20 TO 16,40 DOUBLE
  44. @ 9,21 CLEAR TO 15,39
  45. @ 11,23 SAY "Gosh, a window"
  46. @ 19,40 TO 21,59
  47. @ 20,41 SAY " Press any key... "
  48. *
  49. key = 0
  50. I = 9999
  51. DO WHILE key = 0 .AND. I > 999
  52.    @ 13,27 SAY STR(I,4)
  53.    key = INKEY()
  54.    I = I - 1
  55. ENDDO
  56. *
  57. CALL SaveRest WITH "R"
  58. *
  59. @ 24,30 SAY " Press any key... "
  60. key = 0
  61. DO WHILE key = 0
  62.    key = INKEY()
  63. ENDDO
  64. @ 24,00
  65. *
  66.  
  67.  
  68.  
  69.